CLS
REM NAMA PROGRAM  :  C_UAS.BAS
REM PROGRAM       :  COVER BASIC

CLS
KEY OFF
SUB MENU

FOR A=4 TO 20
COLOR 04,15
LOCATE A,3 :?STRING$(23,CHR$(206))
LOCATE A,55 :?STRING$(24,CHR$(206))
DELAY 0.03
NEXT A

FOR A=4 TO 20
COLOR 04,11
LOCATE A,27 :?STRING$(27,” “)
DELAY 0.03
NEXT A

A=1
FOR Z=1 TO 23
COLOR 09,0
LOCATE A,1 :?”º”
LOCATE A,80 :?”º”
A=A+1
NEXT Z

COLOR  01,04
LOCATE 01,01 :?”É”
LOCATE 01,02 :?STRING$(78,”Í”)
LOCATE 01,80 :?”»”
A=2
FOR Z=1 TO 22
LOCATE A,01 :?”º”
LOCATE A,80 :?”º”
A=A+1
NEXT Z

LOCATE 23,01 :?”È”
LOCATE 23,02 :?STRING$(78,”Í”)
LOCATE 23,80 :?”¼”

LOCATE 3,02 :?STRING$(78,”Í”)
LOCATE 3,01 :?”Ì”
LOCATE 3,80 :?”¹”

LOCATE 21,02 :?STRING$(78,”Í”)
LOCATE 21,01 :?”Ì”
LOCATE 21,80 :?”¹”

COLOR 15
LOCATE 01,20😕 “Sekolah Tinggi Manajemen Informatika & Komputer”
COLOR  12,15
LOCATE 2,18 :?”CREATED BY  :  RONI          NIM  :  3101-1101-1854″
COLOR 20,09
LOCATE 04,29 : ? ” M E N U – U T A M A  ”

COLOR 15,12
LOCATE 6,32  :?” [1] INPUT DATA  ”
LOCATE 8,32  :?” [2] LAPORAN     ”
LOCATE 10,32 :?” [3] KELUAR      ”

COLOR 30
LOCATE 6,34 :?”1″
LOCATE 8,34 :?”2″
LOCATE 10,34 :?”3″

COLOR 0,11
LOCATE 6,49 :?”Ü”
LOCATE 7,33 :?STRING$(17,”ß”)
LOCATE 8,49 :?”Ü”
LOCATE 9,33 :?STRING$(17,”ß”)
LOCATE 10,49 :?”Ü”
LOCATE 11,33 :?STRING$(17,”ß”)

COLOR 15,0
LOCATE 22,03 :?”[ “;DATE$ ” ]”
LOCATE 22,67 :?”[ “;TIME$ ” ]”

COLOR 0,0

TEKS$=”<—     —> TEKAN   ANGKA  DIATAS  ”
KOLOM%=41-LEN(TEKS$)\2
Y%=22
X%=KOLOM%
TUNDA=0.1

LOCAL TEMP$,I%
TEMP$=TEKS$
PANJANG%=LEN(TEMP$)
A=0
B=1
DO
WHILE NOT INSTAT
COLOR A
LOCATE Y%,X% : ? TEMP$
DELAY TUNDA
TEMP$=RIGHT$(TEMP$,1)+LEFT$(TEMP$,PANJANG%-1)
A=A+1
‘    B=B+1
DELAY .05
IF A>15 THEN A=0
IF B>8 THEN B=1
WEND
PILIHAN$=INKEY$
LOOP UNTIL INSTR(“1234567”,PILIHAN$)
? PILIHAN$
LOCATE ,,0
COLOR 14,0

SELECT CASE PILIHAN$
CASE “1”
CLS:CALL ISI
CASE “2”
CLS:CALL LAPOR
CASE “3”
‘                DELAY 1
CLS:SYSTEM

END SELECT
END SUB

SUB SELESAI
SCREEN 1,4
FOR I=1 TO 2222
PSET (RND*640,RND*400),RND*2
NEXT I
A$=”UNTUK”
B$=”UJIAN BASIC”
C$=”TANGGAL  – -2002″
D$=”OLEH”
E$=”RONI”
F$=”NIM-3101-1101-1854″
G$=”MEISTER INFORMATIKA KOMPUTER ”
H$=”ANGKATAN MILLENIUM”
I$=”2011/2012″

A=LEN(A$)
B=LEN(B$)
C=LEN(C$)
D=LEN(D$)
E=LEN(E$)
F=LEN(F$)
G=LEN(G$)
H=LEN(H$)
I=LEN(I$)

AA=(40-A)\2
BB=(40-B)\2
CC=(40-C)\2
DD=(40-D)\2
EE=(40-E)\2
FF=(40-F)\2
GG=(40-G)\2
HH=(40-H)\2
II=(40-I)\2

FOR Z=1 TO A
LOCATE 05,AA+Z :?MID$(A$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO B
LOCATE 07,BB+Z :?MID$(B$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO C
LOCATE 08,CC+Z :?MID$(C$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO D
LOCATE 11,DD+Z :?MID$(D$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO E
LOCATE 14,EE+Z :?MID$(E$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO F
LOCATE 15,FF+Z :?MID$(F$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO G
LOCATE 16,GG+Z :?MID$(G$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO H
LOCATE 19,HH+Z :?MID$(H$,Z,1)
DELAY 0.05
NEXT Z
FOR Z=1 TO I
LOCATE 20,II+Z :?MID$(I$,Z,1)
DELAY 0.05
NEXT Z

FOR Z=0 TO 99
LINE(Z,Z)-(320+Z,200+Z),1,B
DELAY 0.05
NEXT Z
CLS : SYSTEM
END SUB
CALL MENU

‘Memanggil sub menu pilihan
SUB ISI

REM NAMA PROGRAM : ISI.BAS
REM LATIHAN      : MEMBUAT PROGRAM ISI
CLS
DIM KODE$(100),NAMA$(100),NP$(100),TUJUAN$(100),JENIS$(100),HRG(100),_
DIS(100),TOTAL(100)

NOMORFILE1% = 1
PRINT “NAMA FILE        : “; : INPUT,NAMAFILE$
INPUT “JUMLAH DATA      : “,N
? “PROGRAM INPUT DATA”
FOR A=1 TO N
COLOR 6
?
? “DATA KE  : “;A
INPUT “KODE PESAWAT [A-SBY-G,D-JKT-L,D-SBY-L,…] : “,KODE$(A)
INPUT “NAMA PENUMPANG   : “,NAMA$(A)
IF UCASE$ (RIGHT$(KODE$(A),1))=”G” THEN
NP$(A)=”GARUDA”
ELSEIF UCASE$ (RIGHT$(KODE$(A),1))=”L” THEN
NP$(A)=”LION”
ELSEIF UCASE$ (RIGHT$(KODE$(A),1))=”M” THEN
NP$(A)=”MANDALA”
END IF
? “NAMA PESAWAT    : “;NP$(A)

IF UCASE$ (MID$ (KODE$(A),3,3))=”SBY” THEN
TUJUAN$(A)=”SURABAYA”
ELSEIF UCASE$ (MID$ (KODE$(A),3,3))=”JKT” THEN
TUJUAN$(A)=”JAKARTA”
END IF
? “KOTA TUJUAN     : “;TUJUAN$(A)

IF UCASE$ (LEFT$(KODE$(A),1))=”A” THEN
JENIS$(A)=”ANAK”
ELSEIF UCASE$ (LEFT$(KODE$(A),1))=”D” THEN
JENIS$(A)=”DEWASA”
END IF
? “JENIS PENUMPANG : “;JENIS$(A)

IF UCASE$ (NP$(A))=”GARUDA” AND TUJUAN$(A)=”JAKARTA” THEN
HRG(A)=800000
ELSEIF UCASE$ (NP$(A))=”GARUDA” AND TUJUAN$(A)=”SURABAYA” THEN
HRG(A)=700000
ELSEIF UCASE$ (NP$(A))=”LION” AND TUJUAN$(A)=”JAKARTA” THEN
HRG(A)=750000
ELSEIF UCASE$ (NP$(A))=”LION” AND TUJUAN$(A)=”SURABAYA” THEN
HRG(A)=650000
ELSEIF UCASE$ (NP$(A))=”MANDALA” AND TUJUAN$(A)=”JAKARTA” THEN
HRG(A)=500000
ELSEIF UCASE$ (NP$(A))=”MANDALA” AND TUJUAN$(A)=”SURABAYA” THEN
HRG(A)=450000
END IF
? “HARGA TIKET     : “;HRG(A)

IF UCASE$ (JENIS$(A))=”ANAK” THEN DIS(A)=0.1*HRG(A) ELSE DIS(A)=0
? “DISKON          : “;DIS(A)
TOTAL(A)=HRG(A)-DIS(A)
? “TOTAL BAYAR     : “;TOTAL(A)

INPUT,X
NEXT A

OPEN NAMAFILE$ FOR OUTPUT AS #NOMORFILE1%
WRITE #NOMORFILE1%, N
FOR A=1 TO N

WRITE #NOMORFILE1%,A,KODE$(A),NAMA$(A),NP$(A),TUJUAN$(A),JENIS$(A),_
HRG(A),DIS(A),TOTAL(A)

NEXT A
CLOSE #NOMORFILE1%

END SUB
CALL MENU

SUB LAPOR

REM NAMA PROG :TAMPIL.BAS
REM UAS       :MEMBUAT PROGRAM LAPORAN
CLS
DIM KODE$(100),NAMA$(100),NP$(100),TUJUAN$(100),JENIS$(100),HRG(100),_
DIS(100),TOTAL(100)
NOMORFILE1%=1
? “NAMA FILE YANG INGIN DITAMPILKAN  : “; : INPUT,NAMAFILE$
OPEN NAMAFILE$ FOR INPUT AS #NOMORFILE1%
INPUT #NOMORFILE1%, N
FOR A=1 TO N
INPUT #NOMORFILE1%,A,KODE$(A),NAMA$(A),NP$(A),TUJUAN$(A),JENIS$(A),_
HRG(A),DIS(A),TOTAL(A)
NEXT A

CLS
COLOR 07
LOCATE 02,28 : ? “TRAVEL FORTUNA”
COLOR 12
? “==========================================================================”
color 15
PRINT “KODE     NAMA       NAMA      KOTA      JENIS      HARGA   DISKON   TOTAL”
PRINT “PESAWAT  PENUMPANG  PESAWAT   TUJUAN    PENUMPANG  TIKET            BAYAR”
REM    1234567890123456789012345678901234567890123456789012345678901234567
color 12
? “==========================================================================”
color 15
FOR A=1 TO N
PRINT KODE$(A);TAB(10);NAMA$(A);TAB(21);NP$(A);TAB(31);TUJUAN$(A);TAB(41);_
JENIS$(A);TAB(51);HRG(A);TAB(60);DIS(A);TAB(68);TOTAL(A)
NEXT A
color 12
? “==========================================================================”
PRINT ” ”
INPUT ,A

200 CLOSE #NOMORFILE1%

END SUB
CALL MENU


Ket :

jika ada gambar emotion ganti dengan   ”😕 ” tanpa tanda (“)

jika pada saat dijalankan terjadi syntak error berati da simbol yang tidak dikenal, selanjutnya ganti simbol tersebut dengan tanda tanda ( ” ) tanpa ()