LISTING PROGRAM INPUT DATA GAJI PNS 10 CLS : GOSUB 4060: GOSUB 4110 20 NOMERSALAH% = 0 30 GOSUB 4060 40 '== HISKIA K MANGGOPA FPTK JUNI 92 == 50 KEY OFF 60 GOSUB 3850 70 GOSUB 4060: COLOR 14, 1, 4: LOCATE 3, 25: PRINT " MENGISI DATA DOSEN/PEGAWAI" 80 COLOR 7, 1, 4: LOCATE 12, 25: PRINT "MENGAKSES PROGRAM ISI DATA" 90 OPEN "R", 5, "PILHKM", 101 100 FIELD #5, 25 AS NM1$, 25 AS NM2$, 25 AS NM3$, 1 AS WA1$, 25 AS MA1$ 110 POSISI.RECORD = LOF(5) / 101 120 GET #5 130 COLOR 15, 1, 4: 'GOSUB 4060: LOCATE 13, 25: PRINT "FILE "; MA1$; " DI DRIVE "; WA1$ 140 GOSUB 4060: COLOR 7, 1, 4 150 PUT #5 160 'CLOSE 170 OPEN "R", 1, NM1$, 128 180 FIELD #1, 27 AS II1$, 9 AS JJ1$, 24 AS KK1$, 9 AS LL1$, 17 AS MM1$, 17 AS NN1$, 9 AS OO1$ 190 IF NOMERSALAH% = 0 THEN 230 200 LOCATE 14, 25: PRINT "DISK DATA TIDAK SIAP" 210 GOSUB 4010 220 RUN "GAJI" 230 POSISI.RECORD = LOF(1) / 128 240 IF POSISI.RECORD <> 0 THEN 260 250 GOTO 300 260 LOCATE 15, 25: PRINT " FILE TERSEBUT SUDAH BERISI DATA" 270 GOSUB 4010 280 CLOSE 290 RUN "GAJI" 300 COLOR 0, 2, 4: GOSUB 4060 310 GOSUB 3860 320 BETUL$ = "T" 330 WHILE BETUL$ = "T" OR BETUL$ = "t" 340 GOSUB 4060 350 COLOR 14, 2, 4: LOCATE 3, 20: PRINT " MENGISI DATA PENUNJANG I" 360 LOCATE 4, 20: PRINT "Tekan Enter <SETELAH>/<TIDAK> mengisi" 370 COLOR 12, 2, 4: LOCATE 8, 20: PRINT "MENGETAHUI/MENYETUJUI " 380 LOCATE 9, 20: PRINT "--------------------- " 390 COLOR 15, 2, 4: LOCATE 10, 20: PRINT "A.N. REKTOR :" 400 LOCATE 11, 20: PRINT "N I P :" 410 LOCATE 12, 20: PRINT "BENDAHARA :" 420 LOCATE 13, 20: PRINT "N I P :" 430 LOCATE 14, 20: PRINT "TANGGAL S.P.P. :" 440 LOCATE 15, 20: PRINT "TANGGAL REKAPITULASI :" 450 LOCATE 16, 20: PRINT "TAHUN ANGGARAN :" 460 COLOR 15, 12, 4
470 LOCATE 10, 44: PRINT SPACE$(27) 480 LOCATE 11, 44: PRINT SPACE$(9) 490 LOCATE 12, 44: PRINT SPACE$(24) 500 LOCATE 13, 44: PRINT SPACE$(9) 510 LOCATE 14, 44: PRINT SPACE$(17) 520 LOCATE 15, 44: PRINT SPACE$(17) 530 LOCATE 16, 44: PRINT SPACE$(9) 540 LOCATE 10, 44: LINE INPUT "", II$ 550 HK = LEN(II$) 560 IF HK > 27 THEN GOSUB 4010: GOTO 540 570 GOSUB 4060 580 LOCATE 11, 44: LINE INPUT "", JJ$ 590 HK = LEN(JJ$) 600 IF HK > 9 THEN GOSUB 4010: GOTO 580 610 GOSUB 4060 620 LOCATE 12, 44: LINE INPUT "", KK$ 630 HK = LEN(KK$) 640 IF HK > 24 THEN GOSUB 4010: GOTO 620 650 GOSUB 4060 660 LOCATE 13, 44: LINE INPUT "", LL$ 670 HK = LEN(LL$) 680 IF HK > 9 THEN GOSUB 4010: GOTO 660 690 GOSUB 4060 700 LOCATE 14, 44: LINE INPUT "", MM$ 710 HK = LEN(MM$) 720 IF HK > 17 THEN GOSUB 4010: GOTO 700 730 GOSUB 4060 740 LOCATE 15, 44: LINE INPUT "", NN$ 750 HK = LEN(NN$) 760 IF HK > 17 THEN GOSUB 4010: GOTO 740 770 GOSUB 4060 780 LOCATE 16, 44: LINE INPUT "", OO$ 790 HK = LEN(OO$) 800 IF HK > 9 THEN GOSUB 4010: GOTO 780 810 GOSUB 4060 820 LOCATE 20, 20: INPUT "ADA KOREKSI (Y/T) "; DK$ 830 GOSUB 4060 840 IF DK$ = "Y" OR DK$ = "y" THEN GOSUB 5950: GOTO 860 850 GOTO 890 860 COLOR 14, 2, 4 870 LOCATE 21, 20: INPUT "SUDAH BETUL (Y/T):"; BETUL$ 880 WEND 890 GOSUB 4060 900 LSET II1$ = II$ 910 LSET JJ1$ = JJ$ 920 LSET KK1$ = KK$ 930 LSET LL1$ = LL$ 940 LSET MM1$ = MM$
950 LSET NN1$ = NN$ 960 LSET OO1$ = OO$ 970 COLOR 0, 7, 8 980 POSISI.RECORD = POSISI.RECORD + 1 990 PUT #1, POSISI.RECORD 1000 IF NOMERSALAH% = 0 THEN 1040 1010 LOCATE 20, 20: PRINT "DISKET DATA SUDAH PENUH" 1020 GOSUB 4010 1030 RUN "GAJI" 1050 GOSUB 4060 1060 'NAMA2$=NAMA1$+"X" 1070 OPEN "R", 2, NM2$, 128 1080 FIELD #2, 12 AS AA1$, 14 AS BB1$, 27 AS CC1$, 9 AS DD1$, 24 AS EE1$, 9 AS FF1$, 24 AS GG1$, 9 AS HH1$ 1090 POSISI.RECORD = LOF(2) / 128 1100 BETUL$ = "T" 1110 WHILE BETUL$ = "T" OR BETUL$ = "t" 1120 GOSUB 3860 1130 GOSUB 4060: COLOR 0, 7, 8 1140 COLOR 14, 7, 8: LOCATE 3, 20: PRINT " MENGISI DATA PENUNJANG II" 1150 LOCATE 4, 20: PRINT "Tekan Enter <SETELAH>/<TIDAK> mengisi" 1160 COLOR 0, 7, 8: LOCATE 9, 20: PRINT "UNIT KERJA/FAK. :" 1170 LOCATE 10, 20: PRINT "DAFTAR GAJI BULAN :" 1180 LOCATE 11, 20: PRINT "PIMPINAN/DEKAN :" 1190 LOCATE 12, 20: PRINT "N I P :" 1200 LOCATE 13, 20: PRINT "P U M K :" 1210 LOCATE 14, 20: PRINT "N I P :" 1220 LOCATE 15, 20: PRINT "PEMBUAT DAF. GAJI :" 1230 LOCATE 16, 20: PRINT "N I P :" 1240 COLOR 0, 12, 8 1250 LOCATE 9, 40: PRINT SPACE$(12) 1260 LOCATE 10, 40: PRINT SPACE$(14) 1270 LOCATE 11, 40: PRINT SPACE$(27) 1280 LOCATE 12, 40: PRINT SPACE$(9) 1290 LOCATE 13, 40: PRINT SPACE$(24) 1300 LOCATE 14, 40: PRINT SPACE$(9) 1310 LOCATE 15, 40: PRINT SPACE$(24) 1320 LOCATE 16, 40: PRINT SPACE$(9) 1330 LOCATE 9, 40: LINE INPUT "", AA$ 1340 GOSUB 4060 1350 HK = LEN(AA$) 1360 IF HK > 12 THEN GOSUB 4010: GOTO 1330 1370 LOCATE 10, 40: LINE INPUT "", BB$ 1380 GOSUB 4060 1390 HK = LEN(BB$) 1400 IF HK > 14 THEN GOSUB 4010: GOTO 1370 1410 LOCATE 11, 40: LINE INPUT "", CC$ 1420 GOSUB 4060
1430 HK = LEN(CC$) 1440 IF HK > 27 THEN GOSUB 4010: GOTO 1410 1450 LOCATE 12, 40: LINE INPUT "", DD$ 1460 GOSUB 4060 1470 HK = LEN(DD$) 1480 IF HK > 9 THEN GOSUB 4010: GOTO 1450 1490 LOCATE 13, 40: LINE INPUT "", EE$ 1500 GOSUB 4060 1510 HK = LEN(EE$) 1520 IF HK > 24 THEN GOSUB 4010: GOTO 1490 1530 LOCATE 14, 40: LINE INPUT "", FF$ 1540 GOSUB 4060 1550 HK = LEN(FF$) 1560 IF HK > 9 THEN GOSUB 4010: GOTO 1530 1570 LOCATE 15, 40: LINE INPUT "", GG$ 1580 GOSUB 4060 1590 HK = LEN(GG$) 1600 IF HK > 24 THEN GOSUB 4010: GOTO 1570 1610 LOCATE 16, 40: LINE INPUT "", HH$ 1620 GOSUB 4060 1630 HK = LEN(HH$) 1640 IF HK > 9 THEN GOSUB 4010: GOTO 1610 1650 LOCATE 20, 20: INPUT "ADA KOREKSI (Y/T) "; KS$ 1660 GOSUB 4060 1670 IF KS$ = "Y" OR KS$ = "y" THEN GOSUB 6310: GOTO 1690 1680 GOTO 1720 1690 COLOR 14, 7, 8 1700 LOCATE 21, 20: INPUT "SUDAH BETUL (Y/T):"; BETUL$ 1710 WEND 1720 GOSUB 4060 1730 LSET AA1$ = AA$ 1740 LSET BB1$ = BB$ 1750 LSET CC1$ = CC$ 1760 LSET DD1$ = DD$ 1770 LSET EE1$ = EE$ 1780 LSET FF1$ = FF$ 1790 LSET GG1$ = GG$ 1800 LSET HH1$ = HH$ 1810 LSET AA1$ = AA$ 1820 POSISI.RECORD = POSISI.RECORD + 1 1830 PUT #2, POSISI.RECORD 1840 IF NOMERSALAH% = 0 THEN 1890 1850 LOCATE 20, 20: PRINT "DISK DATA SUDAH PENUH" 1860 GOSUB 4010 1870 RUN "GAJI" 1890 GOSUB 4060 1910 OPEN "R", 3, NM3$, 190
1920 FIELD #3, 15 AS B11$, 15 AS B21$, 15 AS AN11$, 8 AS B31$, 9 AS B41$, 1 AS B51$, 1 AS B61$, 1 AS B71$, 1 AS C11$, 1 AS C21$, 4 AS D11$, 1 AS F11$, 1 AS F21$, 4 AS M11$, 4 AS M21$, 4 AS M31$, 4 AS M51$, 24 AS Q11$, 24 AS Q21$, 24 AS Q31$, 24 AS Q41$, 1 AS AGM1$ 1921 'FIELD #3, 1 AS AGM1$ 1930 GET #3, 1 1940 POSISI.RECORD = CVS(M51$) + 1 1950 J = 0 1960 LAGI$ = "Y" 1970 WHILE LAGI$ = "Y" OR LAGI$ = "y" 1980 GOSUB 4060 1990 J = J + 1 2000 COLOR 7, 1, 4: CLS 2040 BETUL$ = "T" 2050 WHILE BETUL$ = "T" OR BETUL$ = "t" 2060 GOSUB 5800: COLOR 14, 1, 4: CLS 2070 LOCATE 1, 20: PRINT "SEDANG MENGISI DATA GAJI NOMOR URUT :"; J 2080 LOCATE 2, 20: PRINT "Tekan Enter <SETELAH>/<TIDAK> mengisi" 2090 'GOSUB 4060 2100 COLOR 7, 1, 4: LOCATE 3, 5: PRINT "NAMA LENGKAP :" 2110 COLOR 2, 1, 4: LOCATE 4, 50: PRINT " K E T E R A N G A N :" 2120 COLOR 7, 1, 4: LOCATE 4, 5: PRINT " :" 2130 LOCATE 5, 5: PRINT " :" 2140 LOCATE 6, 5: PRINT "TANGGAL LAHIR :" 2150 LOCATE 7, 5: PRINT "N I P :" 2160 LOCATE 8, 5: PRINT "STATUS PEGAWAI :" 2170 LOCATE 9, 5: PRINT "GOLONGAN :" 2180 LOCATE 10, 5: PRINT "RUANG [A|B|C|D|E] :" 2190 LOCATE 11, 5: PRINT "STATUS PERKAWINAN :" 2200 LOCATE 12, 5: PRINT "JUMLAH ANAK :" 2210 LOCATE 13, 5: PRINT "GAJI POKOK :" 2220 LOCATE 14, 5: PRINT "JABATAN FUNGSIONAL :" 2230 LOCATE 15, 5: PRINT "JABATAN STRUKTURAL :" 2240 LOCATE 16, 5: PRINT "SEWA RUMAH :" 2250 LOCATE 17, 5: PRINT "TUNGGAKAN SEWA RUMAH :" 2260 LOCATE 18, 5: PRINT "HUTANG KELEBIHAN :" 2270 'LOCATE 19,5:PRINT "TABUNGAN RUMAH PNS :" 2280 LOCATE 19, 5: PRINT "TUNJANGAN LAIN-LAIN :" 2290 LOCATE 20, 5: PRINT "KETERANGAN :" 2300 LOCATE 21, 5: PRINT " :" 2310 LOCATE 22, 5: PRINT " :" 2311 LOCATE 23, 5: PRINT " :" 2320 LOCATE 20, 59: PRINT "AGAMA(1=IS|2=B.IS) :" 2330 COLOR 7, 12, 4 2340 LOCATE 3, 33: PRINT SPACE$(15) 2350 LOCATE 4, 33: PRINT SPACE$(15) 2360 LOCATE 5, 33: PRINT SPACE$(15) 2370 LOCATE 6, 33: PRINT SPACE$(8) 2380 LOCATE 7, 33: PRINT SPACE$(9)
2390 2400 2410 2420 2430 2440 2450 2460 2470 2480 2490 2500 2510 2520 2530 2540 2550 2551 2560 2570 2580 2590 2600 2610 2620 2630 2640 2650 2660 2670 2680 2690 2700 2710 2720 2730 2740 2750 2760 2770 2780 2790 2800 2810 2820 2830 2840 2850
LOCATE 8, 33: PRINT SPACE$(1) LOCATE 9, 33: PRINT SPACE$(1) LOCATE 10, 33: PRINT SPACE$(1) LOCATE 11, 33: PRINT SPACE$(1) LOCATE 12, 33: PRINT SPACE$(1) LOCATE 13, 33: PRINT SPACE$(7) LOCATE 14, 33: PRINT SPACE$(1) LOCATE 15, 33: PRINT SPACE$(1) 'LOCATE 17,33:PRINT SPACE$(6) LOCATE 16, 33: PRINT SPACE$(6) LOCATE 17, 33: PRINT SPACE$(6) LOCATE 18, 33: PRINT SPACE$(6) LOCATE 19, 33: PRINT SPACE$(6) 'LOCATE 20,33:PRINT SPACE$(6) LOCATE 20, 33: PRINT SPACE$(24) LOCATE 21, 33: PRINT SPACE$(24) LOCATE 22, 33: PRINT SPACE$(24) LOCATE 23, 33: PRINT SPACE$(24) LOCATE 20, 79: PRINT SPACE$(1) LOCATE 3, 33: LINE INPUT "", B1$ HK = LEN(B1$) IF HK > 15 THEN GOSUB 4010: GOTO 2570 GOSUB 4060 LOCATE 4, 33: LINE INPUT "", B2$ HK = LEN(B2$) IF HK > 15 THEN GOSUB 4010: GOTO 2610 GOSUB 4060 LOCATE 5, 33: LINE INPUT "", AN1$ HK = LEN(AN1$) IF HK > 15 THEN GOSUB 4010: GOTO 2650 GOSUB 4060 LOCATE 6, 33: LINE INPUT "", B3$ HK = LEN(B3$) IF HK > 8 THEN GOSUB 4010: GOTO 2690 GOSUB 4060 LOCATE 7, 33: LINE INPUT "", B4$ HK = LEN(B4$) IF HK > 9 THEN GOSUB 4010: GOTO 2730 GOSUB 4060: GOSUB 5310 LOCATE 8, 33: LINE INPUT "", B5$ IF B5$ = "1" OR B5$ = "2" THEN 2790 ELSE GOSUB 4010: GOTO 2770 HK = LEN(B5$) IF HK > 1 THEN GOSUB 4010: GOTO 2770 GOSUB 4060: GOSUB 5360 LOCATE 9, 33: LINE INPUT "", B6$ IF (B6$ = "1" OR B6$ = "2" OR B6$ = "3" OR B6$ = "4") THEN 2840 ELSE GOSUB 4010: GOTO 2820 HK = LEN(B6$) IF HK > 1 THEN GOSUB 4010: GOTO 2820
2860 GOSUB 4060 2870 LOCATE 10, 33: INPUT "", B7$ 2880 IF (B7$ = "A" OR B7$ = "B" OR B7$ = "C" OR B7$ = "D" OR B7$ = "E") THEN 2890 ELSE GOSUB 4010: GOTO 2870 2890 HK = LEN(B7$) 2900 IF HK > 1 THEN GOSUB 4010: GOTO 2870 2910 GOSUB 4060: GOSUB 5430 2920 LOCATE 11, 33: INPUT "", C1$ 2930 IF (C1$ = "1" OR C1$ = "2" OR C1$ = "3" OR C1$ = "4" OR C1$ = "5" OR C1$ = "6") THEN 2940 ELSE GOSUB 4010: GOTO 2920 2940 HK = LEN(C1$) 2950 IF HK > 1 THEN GOSUB 4010: GOTO 2920 2960 GOSUB 4060 2970 LOCATE 12, 33: INPUT "", C2$ 2980 HK = LEN(C2$) 2990 IF HK > 1 THEN GOSUB 4010: GOTO 2970 3000 GOSUB 4060 3010 LOCATE 13, 33: INPUT "", D1 3020 GOSUB 4060: GOSUB 5530 3030 'GOSUB 3790 3040 LOCATE 14, 33: LINE INPUT "", FF1$ 3050 'LOCATE 10,33:INPUT "",B7$ 3060 IF (FF1$ = "1" OR FF1$ = "2" OR FF1$ = "3" OR FF1$ = "4" OR FF1$ = "5" OR FF1$ = "6" OR FF1$ = "7" OR FF1$ = "8" OR FF1$ = "9" OR FF1$ = "X") THEN 3070 ELSE GOSUB 4010: GOTO 3040 3070 HK = LEN(FF1$) 3080 IF HK > 1 THEN GOSUB 4010: GOTO 3040 3090 GOSUB 4060: GOSUB 5660 3100 LOCATE 15, 33: LINE INPUT "", FF2$ 3110 'LOCATE 10,33:INPUT "",B7$ 3120 IF (FF2$ = "A" OR FF2$ = "B" OR FF2$ = "C" OR FF2$ = "D" OR FF2$ = "E" OR FF2$ = "F" OR FF2$ = "G" OR FF2$ = "H" OR FF2$ = "I" OR FF2$ = "J" OR FF2$ = "K" OR FF2$ = "X") THEN 3130 ELSE GOSUB 4010: GOTO 3100 3130 HK = LEN(FF2$) 3140 IF HK > 1 THEN GOSUB 4010: GOTO 3110 3150 GOSUB 4060 3160 LOCATE 16, 33: INPUT "", M1 3170 GOSUB 4060 3180 LOCATE 17, 33: INPUT "", M2 3190 GOSUB 4060 3200 LOCATE 18, 33: INPUT "", M3 3210 GOSUB 4060 3220 'LOCATE 19,33:INPUT "",M4 3230 'GOSUB 3790 3240 LOCATE 19, 33: INPUT "", M5 3250 GOSUB 4060 3260 LOCATE 20, 33: LINE INPUT "", Q1$ 3270 HK = LEN(Q1$) 3280 IF HK > 24 THEN GOSUB 4010: GOTO 3260
3290 GOSUB 4060 3300 LOCATE 21, 33: LINE INPUT "", Q2$ 3310 HK = LEN(Q2$) 3320 IF HK > 24 THEN GOSUB 4010: GOTO 3300 3330 GOSUB 4060 3340 LOCATE 22, 33: LINE INPUT "", Q3$ 3350 HK = LEN(Q3$) 3360 IF HK > 24 THEN GOSUB 4010: GOTO 3340 3370 GOSUB 4060 3371 LOCATE 23, 33: LINE INPUT "", Q4$ 3372 HK = LEN(Q4$) 3373 IF HK > 24 THEN GOSUB 4010: GOTO 3371 3374 GOSUB 4060 3380 LOCATE 20, 79: INPUT "", AGM$ 3390 IF AGM$ = "1" OR AGM$ = "2" THEN 3400 ELSE GOSUB 4010: GOTO 3380 3400 HK = LEN(AGM$) 3410 IF HK > 1 THEN GOSUB 4010: GOTO 3300 3420 GOSUB 4060 3430 COLOR 13, 1, 4: LOCATE 22, 59: INPUT "ADA KOREKSI (Y/T) ? ", JWB$ 3440 GOSUB 4060 3450 IF JWB$ = "Y" OR JWB$ = "y" THEN GOSUB 5800: GOSUB 4190 3460 IF JWB$ = "T" OR JWB$ = "t" THEN 3490 3470 COLOR 2, 1, 4: LOCATE 22, 59: INPUT "SUDAH BETUL (Y/T) ? ", BETUL$ 3471 GOSUB 4060 3480 WEND 3490 GOSUB 4060 3500 LSET B11$ = B1$ 3510 LSET B21$ = B2$ 3520 LSET AN11$ = AN1$ 3530 LSET B31$ = B3$ 3540 LSET B41$ = B4$ 3550 LSET B51$ = B5$ 3560 LSET B61$ = B6$ 3570 LSET B71$ = B7$ 3580 LSET C11$ = C1$ 3590 LSET C21$ = C2$ 3600 LSET D11$ = MKS$(D1) 3620 LSET F11$ = FF1$ 3630 LSET F21$ = FF2$ 3640 LSET M11$ = MKS$(M1) 3650 LSET M21$ = MKS$(M2) 3660 LSET M31$ = MKS$(M3) 3670 'LSET M41$=MKI$(M4) 3680 LSET M51$ = MKS$(M5) 3690 LSET Q11$ = Q1$ 3700 LSET Q21$ = Q2$ 3710 LSET Q31$ = Q3$ 3711 LSET Q41$ = Q4$
3720 LSET AGM1$ = AGM$ 3730 POSISI.RECORD = POSISI.RECORD + 1 3740 RECORD.REKAM = POSISI.RECORD 3750 PUT #3, RECORD.REKAM 3760 COLOR 14, 1, 4: LOCATE 23, 59: INPUT "ISI LAGI (Y/T) ? ", LAGI$ 3770 GOSUB 4060: COLOR 7, 1, 4: WEND 3780 LSET M51$ = MKS$(POSISI.RECORD - 1) 3790 PUT #3, 1 3800 CLOSE 3 3810 RUN "GAJI" 3820 GOSUB 4060 3830 CLOSE 3 3840 RUN "STEFAN" 3850 COLOR 7, 1, 4 3860 FOR I = 8 TO 16 3870 LOCATE I, 4: PRINT SPACE$(74) 3880 NEXT I 3890 FOR I = 2 TO 4 3900 LOCATE I, 2: PRINT SPACE$(78) 3910 NEXT I 3920 FOR I = 20 TO 21 3930 LOCATE I, 2: PRINT SPACE$(78) 3940 NEXT I 3950 RETURN 3960 FOR K = 1000 TO 1500 STEP 10 3970 SOUND F, .05 3980 NEXT K 3990 SOUND 5000, 0 4000 RETURN 4010 FOR A = 1 TO 15 4020 SOUND 1000, .2 4030 SOUND 2000, .3 4040 NEXT A 4050 RETURN 4060 FOR F = 1000 TO 1500 STEP 10 4070 SOUND F, .05 4080 NEXT F 4090 SOUND 5000, 0 4100 RETURN 4110 NOMERSALAH% = 0: GOTO 4170 4120 JENISSALAH$ = " 61DISK PENUH 72MEDIA DISK RUSAK 71DISK TIDAK SIAP 70DISK DIPROTEKSI 53FILE TIDAK ADA DI DISK 67TERLALU BANYAK FILE" 4130 URUTANSALAH% = INSTR(JENISSALAH$, STR$(ERR)) 4140 IF URUTANSALAH% = 0 THEN JENISSALAH$ = "" ELSE JENISSALAH$ = MID$(JENISSALAH$, URUTANSALAH% + 3, 22) 4150 NOMERSALAH% = ERR 4160 RESUME NEXT 4170 ON ERROR GOTO 4120
4180 RETURN 4190 LOCATE 3, 33: LINE INPUT "", B1B$ 4200 HK = LEN(B1B$) 4210 IF HK > 15 THEN GOSUB 4010: GOTO 2570 4220 GOSUB 4060 4230 IF B1B$ <> "" THEN B1$ = B1B$ 4240 LOCATE 4, 33: LINE INPUT "", B2B$ 4250 HK = LEN(B2B$) 4260 IF HK > 15 THEN GOSUB 4010: GOTO 4240 4270 GOSUB 4060 4280 IF B2B$ <> "" THEN B2$ = B2B$ 4290 LOCATE 5, 33: LINE INPUT "", AN1A$ 4300 HK = LEN(AN1A$) 4310 IF HK > 15 THEN GOSUB 4010: GOTO 4290 4320 GOSUB 4060 4330 IF AN1A$ <> "" THEN AN1$ = AN1A$ 4340 LOCATE 6, 33: LINE INPUT "", B3B$ 4350 HK = LEN(B3B$) 4360 IF HK > 8 THEN GOSUB 4010: GOTO 2690 4370 GOSUB 4060 4380 IF B3B$ <> "" THEN B3$ = B3B$ 4390 LOCATE 7, 33: LINE INPUT "", B4B$ 4400 HK = LEN(B4B$) 4410 IF HK > 9 THEN GOSUB 4010: GOTO 2730 4420 GOSUB 4060: GOSUB 5310 4430 IF B4B$ <> "" THEN B4$ = B4B$ 4440 LOCATE 8, 33: LINE INPUT "", B5B$ 4450 IF (B5B$ = "" OR B5B$ = "1" OR B5B$ = "2") THEN 4460 ELSE GOSUB 4010: GOTO 4440 4460 HK = LEN(B5B$) 4470 IF HK > 1 THEN GOSUB 4010: GOTO 4440 4480 GOSUB 4060: GOSUB 5360 4490 IF B5B$ <> "" THEN B5$ = B5B$ 4500 LOCATE 9, 33: LINE INPUT "", B6B$ 4510 IF (B6B$ = "" OR B6B$ = "1" OR B6B$ = "2" OR B6B$ = "3" OR B6B$ = "4") THEN 4520 ELSE GOSUB 4010: GOTO 4500 4520 HK = LEN(B6B$) 4530 IF HK > 1 THEN GOSUB 4010: GOTO 4500 4540 GOSUB 4060 4550 IF B6B$ <> "" THEN B6$ = B6B$ 4560 LOCATE 10, 33: LINE INPUT "", B7B$ 4570 IF (B7B$ = "" OR B7B$ = "A" OR B7B$ = "B" OR B7B$ = "C" OR B7B$ = "D" OR B7B$ = "E") THEN 4580 ELSE GOSUB 4010: GOTO 4560 4580 HK = LEN(B7B$) 4590 IF HK > 1 THEN GOSUB 4010: GOTO 4560 4600 GOSUB 4060: GOSUB 5430 4610 IF B7B$ <> "" THEN B7$ = B7B$ 4620 LOCATE 11, 33: LINE INPUT "", C1C$
4630 IF (C1C$ = "" OR C1C$ = "1" OR C1C$ = "2" OR C1C$ = "3" OR C1C$ = "4" OR C1C$ = "5" OR C1C$ = "6") THEN 4640 ELSE GOSUB 4010: GOTO 4620 4640 HK = LEN(C1C$) 4650 IF HK > 1 THEN GOSUB 4010: GOTO 4620 4660 GOSUB 4060 4670 IF C1C$ <> "" THEN C1$ = C1C$ 4680 LOCATE 12, 33: LINE INPUT "", C2C$ 4690 HK = LEN(C2C$) 4700 IF HK > 1 THEN GOSUB 4010: GOTO 4680 4710 GOSUB 4060 4720 IF C2C$ <> "" THEN C2$ = C2C$ 4730 LOCATE 13, 33: LINE INPUT "", D1D$ 4740 GOSUB 4060: GOSUB 5530 4750 IF D1D$ <> "" THEN D1 = VAL(D1D$) 4760 'LOCATE 13,33:LINE INPUT "",E1E$ 4770 'GOSUB 3790 4780 'IF E1E$ <> "" THEN E1=VAL(E1E$) 4790 'LOCATE 14,33:LINE INPUT "",F1F$ 4800 LOCATE 14, 33: LINE INPUT "", F1F$ 4810 IF (F1F$ = "" OR F1F$ = "X" OR F1F$ = "1" OR F1F$ = "2" OR F1F$ = "3" OR F1F$ = "4" OR F1F$ = "5" OR F1F$ = "6" OR F1F$ = "7" OR F1F$ = "8" OR F1F$ = "9") THEN 4820 ELSE GOSUB 4010: GOTO 4800 4820 HK = LEN(F1F$) 4830 IF HK > 1 THEN GOSUB 4010: GOTO 4800 4840 GOSUB 4060: GOSUB 5660 4850 IF F1F$ <> "" THEN FF1$ = F1F$ 4860 LOCATE 15, 33: LINE INPUT "", F2F$ 4870 'LOCATE 14,33:LINE INPUT "",F2F$ 4880 IF (F2F$ = "" OR F2F$ = "X" OR F2F$ = "A" OR F2F$ = "B" OR F2F$ = "C" OR F2F$ = "D" OR F2F$ = "E" OR F2F$ = "F" OR F2F$ = "G" OR F2F$ = "H" OR F2F$ = "I" OR F2F$ = "J" OR F2F$ = "J") THEN 4890 ELSE GOSUB 4010: GOTO 4870 4890 HK = LEN(F2F$) 4900 IF HK > 1 THEN GOSUB 4010: GOTO 4860 4910 GOSUB 4060 4920 IF F2F$ <> "" THEN FF2$ = F2F$ 4930 'IF F2F$ <> "" THEN F2=VAL(F2F$) 4940 LOCATE 16, 33: LINE INPUT "", M1M$ 4950 GOSUB 4060 4960 IF M1M$ <> "" THEN M1 = VAL(M1M$) 4970 LOCATE 17, 33: LINE INPUT "", M2M$ 4980 GOSUB 4060 4990 IF M2M$ <> "" THEN M2 = VAL(M2M$) 5000 LOCATE 18, 33: LINE INPUT "", M3M$ 5010 GOSUB 4060 5020 IF M3M$ <> "" THEN M3 = VAL(M3M$) 5030 'LOCATE 19,33:LINE INPUT "",M4M$ 5040 'GOSUB 3790 5050 'IF M4M$ <> "" THEN M4=VAL(M4M$) 5060 LOCATE 19, 33: LINE INPUT "", M5M$
5070 GOSUB 4060 5080 IF M5M$ <> "" THEN M5 = VAL(M5M$) 5090 LOCATE 20, 33: LINE INPUT "", Q1Q$ 5100 HK = LEN(Q1Q$) 5110 IF HK > 24 THEN GOSUB 4010: GOTO 5090 5120 GOSUB 4060 5130 IF Q1Q$ <> "" THEN Q1$ = Q1Q$ 5140 LOCATE 21, 33: LINE INPUT "", Q2Q$ 5150 HK = LEN(Q2Q$) 5160 IF HK > 24 THEN GOSUB 4010: GOTO 5140 5170 GOSUB 4060 5180 IF Q2Q$ <> "" THEN Q2$ = Q2Q$ 5190 LOCATE 22, 33: LINE INPUT "", Q3Q$ 5200 HK = LEN(Q3Q$) 5210 IF HK > 24 THEN GOSUB 4010: GOTO 5190 5220 GOSUB 4060 5230 IF Q3Q$ <> "" THEN Q3$ = Q3Q$ 5231 LOCATE 23, 33: LINE INPUT "", Q4Q$ 5232 HK = LEN(Q4Q$) 5233 IF HK > 24 THEN GOSUB 4010: GOTO 5231 5234 GOSUB 4060 5235 IF Q4Q$ <> "" THEN Q4$ = Q4Q$ 5240 LOCATE 20, 79: LINE INPUT "", AGMA$ 5250 IF (AGMA$ = "" OR AGMA$ = "1" OR AGMA$ = "2") THEN 5260 ELSE GOSUB 4010: GOTO 5240 5260 HK = LEN(AGMA$) 5270 IF HK > 1 THEN GOSUB 4010: GOTO 5240 5280 GOSUB 4060 5290 IF AGMA$ <> "" THEN AGM$ = AGMA$ 5300 RETURN 5310 LOCATE 5, 50: PRINT " STATUS PEGAWAI " 5320 LOCATE 6, 50: PRINT " -------------- " 5330 LOCATE 8, 50: PRINT " 1 = PNS " 5340 LOCATE 9, 50: PRINT " 2 = CPNS " 5350 RETURN 5360 LOCATE 5, 50: PRINT " GOLONGAN : " 5370 LOCATE 6, 50: PRINT " ---------- " 5380 LOCATE 8, 50: PRINT " 1 = GOLONGAN I" 5390 LOCATE 9, 50: PRINT " 2 = GOLONGAN II" 5400 LOCATE 10, 50: PRINT " 3 = GOLONGAN III" 5410 LOCATE 11, 50: PRINT " 4 = GOLONGAN IV" 5420 RETURN 5430 LOCATE 5, 50: PRINT " STATUS PERKAWINAN " 5440 LOCATE 6, 50: PRINT " ----------------- " 5450 LOCATE 8, 50: PRINT " 1 = [K1] KAWIN " 5460 LOCATE 9, 50: PRINT " 2/3 = [K2/K3] KAWIN TIDAK " 5470 'LOCATE 11,50:PRINT " DAPAT TUNJANGAN" 5480 LOCATE 10, 50: PRINT " DAPAT TUNJANGAN " 5490 LOCATE 11, 50: PRINT " 4 = [TK] TIDAK KAWIN "
5500 5510 5520
LOCATE 12, 50: PRINT " 5 = [D] DUDA LOCATE 13, 50: PRINT " 6 = [J] JANDA RETURN
" "