REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0080 Exec: $8b8d * REM *(Start: 09217 Length: 00128 Exec: 35725) * REM ************************************************* REM 10 I$="V7O4L6DC#O3BO4C#O3ABO4CL10DP10L6DL4DL10O3AL6AF#AGL10F#P10L6F#BBAO4C#DO3BL10AP10O4DL4CO3L10BO3L6ABL10GF#L6ED" 20 PLAY I$ REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00a7 Exec: $8b8d * REM *(Start: 09217 Length: 00167 Exec: 35725) * REM ************************************************* REM 10 H$="O4V7L6P6O3DAGL3F#EP6L6DAABO4C#L3DP6L6DAGL3F#EP6L6DAABO4C#L3DP6L6DO3ABL3P6GF#L6ADC#O3BBL3AP6L6BBAL3GF#P6O4L6DDC#O3BBO3L3AP6L6AAAL3BAP6L6ABBO4EC#L3D" 20 PLAY H$ REM REM line numbering breaks here! REM O3L6V7AL3AL6AL3FL6AO4L4CL10DL6CO3L3AL6AL3B-L6GL3AL10FGL4AL10B-L6AL3GL6GGAB-L3AL6AGAB-L3AO4L6CL3FO3L6AL4GL10AL6B-L3FL10EGL2F V5O3L3FL6FFGEL3FL6AAAAB-GL3AO4CL6FDL3CO3L6B-AL3B-AL2GP20L3O4CL6DCCO3AL3B-B-O4L6CO3B-B-GAAAAO4CO3B-L3AGL2FP20 FROM FROM FROM O3L6V7FGAB-O4CFL3CL4DL10CL6O3B-AO4CCL3O3GL4GL10AL6B-GL4AL10B-L4L10L6O4CO3AL4GL10AL6B-GL4AL10B-L6O4CO3AO4L4CL10FL6CO3AB-GL3AO4L4CL10FL6CO3AL3B-GL2F FROM O4L6V5CDCO3AB-L4AL10GL6GP10AO4CDO3B-AL3GL6FP10O4CDCO3AB-L4L4AL10GL6GP10O4CEDCO3BL3BL6AP10O4V9CL4FL8FL6CDO3B-O4L10CO3B-L6AO4CO3AO4CO3FB-L4AL10GFP20V15O4L6DL4CL10O3B-AP20O4V20L6FL4EL10DCV4P20L6DL3O3B-GF FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0073 Exec: $8b8d * REM *(Start: 09217 Length: 00115 Exec: 35725) * REM ************************************************* REM 10 G$="O3V7L6GO4CO3GAGL4GL10FEP10L6EL4GL10FEP10L6O4EDO3BGO4CO3L4AL10BGP10L6GL4O4DL10CO3BP10L6O4CL3EDC" 20 PLAY G$ REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0097 Exec: $8b8d * REM *(Start: 09217 Length: 00151 Exec: 35725) * REM ************************************************* REM 0 A=0 9 CLEAR 20000 10 F$="V5O4L3DL6DDEDL3DO3BL10P10O4L3CO3L6BAAGGF#L3G":F1$="P10L6BAF#GEL3DP10O4L6DDDEDL3DO3BP10O4CL6O3BAAGGF#L3G" 20 PLAY F$+F$+F1$ REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $09cd Exec: $8b8d * REM *(Start: 09217 Length: 02509 Exec: 35725) * REM ************************************************* REM 10 CLEAR 20000 20 CLS 30 PRINT "HEI!" 40 PRINT "ENTER DIN SPESIAL KODE STIAN" 50 LINE INPUT A$ 60 IF A$<>"38112" THEN END 70 PRINT "JEG SKULLE BARE FORSIKRE MEG OM AT DET VAR DEG" 80 PRINT "VIL DU H0RE PA EN SANG" 90 A$= INKEY$ : IF A$="" THEN 90 100 IF A$="J" THEN 130 110 PRINT "OK HADE,STIAN" 120 NEW 130 CLS 140 PRINT @0,"1.BARN JESUS I KRYBBE LA" 150 GO SUB 460 160 PRINT @32,"2.DEILIG ER DEN HIMMEL BLA" 170 GO SUB 460 180 PRINT @64,"3.DEILIG ER JORDEN" 190 GO SUB 460 200 PRINT @96,"4.DET KIMER NU TIL JULEFEST" 210 GO SUB 460 220 PRINT @128,"5.DU GR0NNE GLITRENDE TRE" 230 GO SUB 460 240 PRINT @160,"6.EN ROSE ER UTSPRUNGEN" 250 GO SUB 460 260 PRINT @192,"7.ET BARN ER F0DT I BETLEHEM" 270 GO SUB 460 280 PRINT @224,"8.FRA FJORD OG FJAERE" 290 GO SUB 460 300 PRINT @256,"9.FRA HIMMELEN H0YT" 310 GO SUB 460 320 PRINT @288,"10.GLADE JUL" 330 GO SUB 460 340 PRINT @320,"11.HER KOMMER DINE ARME SMA" 350 GO SUB 460 360 PRINT @352,"12.JEG SYNGER JULEKVAD" 370 GO SUB 460 380 PRINT @384,"13.JEG ER SA GLAD HVER JULEKVELD" 390 GO SUB 460 400 PRINT @416,"14.KIMER,I KLOKKER" 410 GO SUB 460 420 PRINT @448,"15.O,DU HERLIGE" 430 GO SUB 460 440 PRINT @480,"16.O,JUL MED DIN GLEDE" 450 GO TO 480 460 A$= INKEY$ : IF A$="" THEN 460 470 RETURN 480 PRINT @0,"HVILKEN SANG VIL DU H0RE,STIAN" 490 LINE INPUT A$ 500 A= VAL (A$) 510 IF A<1 OR A>16 THEN 480 520 ON A GO SUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000 530 GO TO 160 1000 CLS 1010 FREAD "LA";A$ 1020 IF EOF ("LA")=1 THEN 1500 1030 GO TO 1010 1500 PLAY A$ 1510 RETURN 2000 CLS 2010 FREAD "BLA";B$ 2020 IF EOF ("BLA")=1 THEN 2500 2030 GO TO 2010 2500 PLAY B$ 2510 RETURN 3000 CLS 3010 FREAD "JORDEN";C$ 3020 IF EOF ("JORDEN")=1 THEN 3500 3030 GO TO 3010 3500 PLAY C$ 3510 RETURN 4000 CLS 4010 FREAD "JULEFEST";D$ 4020 IF EOF ("JULEFEST")=1 THEN 4500 4030 GO TO 4010 4500 PLAY D$ 4510 RETURN 5000 CLS 5010 FREAD "TRE";E$ 5020 IF EOF ("TRE")=1 THEN 5500 5030 GO TO 5010 5500 PLAY E$ 5510 RETURN 6000 CLS 6010 FREAD "UTSPRUNG";F$,F$,F1$ 6020 IF EOF ("UTSPRUNG")=1 THEN 6500 6030 GO TO 6010 6500 PLAY F$ 6501 PLAY F$ 6502 PLAY F1$ 6510 RETURN 7000 CLS 7010 FREAD "BETLEHEM";G$ 7020 IF EOF ("BETLEHEM")=1 THEN 7500 7030 GO TO 7010 7500 PLAY G$ 7510 RETURN 8000 CLS 8010 FREAD "FJAERE";H$ 8020 IF EOF ("FJAERE")=1 THEN 8500 8030 GO TO 8010 8500 PLAY H$ 8510 RETURN 9000 CLS 9010 FREAD "H0YT";I$ 9020 IF EOF ("H0YT")=1 THEN 9500 9030 GO TO 9010 9500 PLAY I$ 9510 RETURN 10000 CLS 10010 FREAD "JUL";J$ 10020 IF EOF ("JUL")=1 THEN 10500 10030 GO TO 10010 10500 PLAY K$ 10510 RETURN 11000 CLS 11010 FREAD "SMA";K$ 11020 IF EOF ("SMA")=1 THEN 11500 11030 GO TO 11010 11500 PLAY K$ 11510 RETURN 12000 CLS 12010 FREAD "JULEKVAD";L$ 12020 IF EOF ("JLEKVAD")=1 THEN 12500 12030 GO TO 12010 12500 PLAY L$ 12510 RETURN 13000 CLS 13010 FREAD "JULEKVEL";M$ 13020 IF EOF ("JULEKVEL")=1 THEN 13500 13030 GO TO 13010 13500 PLAY M$ 13510 RETURN 14000 CLS 14010 FREAD "KLOKKER";N$ 14020 IF EOF ("KLOKKER")=1 THEN 14500 14030 GO TO 14010 14500 PLAY N$ 14510 RETURN 15000 CLS 15010 FREAD "HERLIGE";O$ 15020 IF EOF ("HERLIGE")=1 THEN 15500 15030 GO TO 15010 15500 PLAY O$ 15510 RETURN 16000 CLS 16010 FREAD "GLEDE";P$,P$,P1$ 16020 IF EOF ("GLEDE")=1 THEN 16500 16030 GO TO 16010 16500 PLAY P$+P$+P1$ 16510 RETURN REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0103 Exec: $8b8d * REM *(Start: 09217 Length: 00259 Exec: 35725) * REM ************************************************* REM 10 E$="T2V10O3L10DL6BL10GL9O4CO3L20BL10AO4L9DL20EL10DO3L6BL10GO4L6EL10DL9DL20CL10O3BL6AL10EGF#DL6BL10GO4L9CL20O3BL10AO4L6DO3L10BL6AL10O4DL6EO3L10GF#AO4DDF#EEDO3DL6F#L10GBAG#L6AL10BO4DCO3AL6BL10BL9BO4L20CL10O3BL6BO4L10CEDCO3L4BAL2O4DO3L10GL4BAL2G" 20 PLAY E$ REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0090 Exec: $8b8d * REM *(Start: 09217 Length: 00144 Exec: 35725) * REM ************************************************* REM 10 D$="O3L6V7AL3AL6AL3FL6AO4L4CL10DL6CO3L3AL6AL3B-L6GL3AL10FGL4AL10B-L6AL3GL6GGAB-L3AL6AGAB-L3AO4L6CL3FO3L6AL4GL10AL6B-L3FL10EGL2F" 20 PLAY D$ REM REM line numbering breaks here! REM FROM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $09c2 Exec: $8b8d * REM *(Start: 09217 Length: 02498 Exec: 35725) * REM ************************************************* REM 10 CLEAR 20000 20 CLS 30 PRINT "HEI!" 40 PRINT "ENTER DIN SPESIAL KODE STIAN" 50 LINE INPUT A$ 60 IF A$<>"38112" THEN END 70 PRINT "JEG SKULLE BARE FORSIKRE MEG OM AT DET VAR DEG" 80 PRINT "VIL DU H0RE PA EN SANG" 90 A$= INKEY$ : IF A$="" THEN 90 100 IF A$="J" THEN 130 110 PRINT "OK HADE,STIAN" 120 NEW 130 CLS 140 PRINT @0,"1.BARN JESUS I KRYBBE LA" 150 GO SUB 460 160 PRINT @32,"2.DEILIG ER DEN HIMMEL BLA" 170 GO SUB 460 180 PRINT @64,"3.DEILIG ER JORDEN" 190 GO SUB 460 200 PRINT @96,"4.DET KIMER NU TIL JULEFEST" 210 GO SUB 460 220 PRINT @128,"5.DU GR0NNE GLITRENDE TRE" 230 GO SUB 460 240 PRINT @160,"6.EN ROSE ER UTSPRUNGEN" 250 GO SUB 460 260 PRINT @192,"7.ET BARN ER F0DT I BETLEHEM" 270 GO SUB 460 280 PRINT @224,"8.FRA FJORD OG FJAERE" 290 GO SUB 460 300 PRINT @256,"9.FRA HIMMELEN H0YT" 310 GO SUB 460 320 PRINT @288,"10.GLADE JUL" 330 GO SUB 460 340 PRINT @320,"11.HER KOMMER DINE ARME SMA" 350 GO SUB 460 360 PRINT @352,"12.JEG SYNGER JULEKVAD" 370 GO SUB 460 380 PRINT @384,"13.JEG ER SA GLAD HVER JULEKVELD" 390 GO SUB 460 400 PRINT @416,"14.KIMER,I KLOKKER" 410 GO SUB 460 420 PRINT @448,"15.O,DU HERLIGE" 430 GO SUB 460 440 PRINT @480,"16.O,JUL MED DIN GLEDE" 450 GO TO 480 460 A$= INKEY$ : IF A$="" THEN 460 470 RETURN 480 PRINT @0,"HVILKEN SANG VIL DU H0RE,STIAN" 490 LINE INPUT A$ 500 A= VAL (A$) 510 IF A<1 OR A>16 THEN 480 520 ON A GO SUB 1000,2000,3000,4000,5000,6000,7000,8000,9000,10000,11000,12000,13000,14000,15000,16000 530 GO TO 160 1000 CLS 1010 FREAD "LA";A$ 1020 IF EOF ("LA")=1 THEN 1500 1030 GO TO 1010 1500 PLAY A$ 1510 RETURN 2000 CLS 2010 FREAD "BLA";B$ 2020 IF EOF ("BLA")=1 THEN 2500 2030 GO TO 2010 2500 PLAY B$ 2510 RETURN 3000 CLS 3010 FREAD "JORDEN";C$ 3020 IF EOF ("JORDEN")=1 THEN 3500 3030 GO TO 3010 3500 PLAY C$ 3510 RETURN 4000 CLS 4010 FREAD "JULEFEST";D$ 4020 IF EOF ("JULEKVELD")=1 THEN 4500 4030 GO TO 4010 4500 PLAY D$ 4510 RETURN 5000 CLS 5010 FREAD "TRE";E$ 5020 IF EOF ("TRE")=1 THEN 5500 5030 GO TO 5010 5500 PLAY E$ 5510 RETURN 6000 CLS 6010 FREAD "UTSPRUNG";F$,F$;F1$ 6020 IF EOF ("UTSPRUNG")=1 THEN 6500 6030 GO TO 6010 6500 PLAY F$+F$+F1$ 6510 RETURN 7000 CLS 7010 FREAD "BETLEHEM";G$ 7020 IF EOF ("BETLEHEM")=1 THEN 7500 7030 GO TO 7010 7500 PLAY G$ 7510 RETURN 8000 CLS 8010 FREAD "FJAERE";H$ 8020 IF EOF ("FJAERE")=1 THEN 8500 8030 GO TO 8010 8500 PLAY H$ 8510 RETURN 9000 CLS 9010 FREAD "H0YT";I$ 9020 IF EOF ("H0YT")=1 THEN 9500 9030 GO TO 9010 9500 PLAY I$ 9510 RETURN 10000 CLS 10010 FREAD "JUL";J$ 10020 IF EOF ("JUL")=1 THEN 10500 10030 GO TO 10010 10500 PLAY K$ 10510 RETURN 11000 CLS 11010 FREAD "SMA";K$ 11020 IF EOF ("SMA")=1 THEN 11500 11030 GO TO 11010 11500 PLAY K$ 11510 RETURN 12000 CLS 12010 FREAD "JULEKVAD";L$ 12020 IF EOF ("JLEKVAD")=1 THEN 12500 12030 GO TO 12010 12500 PLAY L$ 12510 RETURN 13000 CLS 13010 FREAD "JULEKVEL";M$ 13020 IF EOF ("JULEKVEL")=1 THEN 13500 13030 GO TO 13010 13500 PLAY M$ 13510 RETURN 14000 CLS 14010 FREAD "KLOKKER";N$ 14020 IF EOF ("KLOKKER")=1 THEN 14500 14030 GO TO 14010 14500 PLAY N$ 14510 RETURN 15000 CLS 15010 FREAD "HERLIGE";O$ 15020 IF EOF ("HERLIGE")=1 THEN 15500 15030 GO TO 15010 15500 PLAY O$ 15510 RETURN 16000 CLS 16010 FREAD "GLEDE";P$,P$,P1$ 16020 IF EOF ("GLEDE")=1 THEN 16500 16030 GO TO 16010 16500 PLAY P$+P$+P1$ 16510 RETURN REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $0081 Exec: $8b8d * REM *(Start: 09217 Length: 00129 Exec: 35725) * REM ************************************************* REM 10 C$="V5O3L3FL6FFGEL3FL6AAAAB-GL3AO4CL6FDL3CO3L6B-AL3B-AL2GP20L3O4CL6DCCO3AL3B-B-O4L6CO3B-B-GAAAAO4CO3B-L3AGL2FP20" 20 PLAY C$ REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00a7 Exec: $8b8d * REM *(Start: 09217 Length: 00167 Exec: 35725) * REM ************************************************* REM 10 B$="O3L6V7FGAB-O4CFL3CL4DL10CL6O3B-AO4CCL3O3GL4GL10AL6B-GL4AL10B-L4L10L6O4CO3AL4GL10AL6B-GL4AL10B-L6O4CO3AO4L4CL10FL6CO3AB-GL3AO4L4CL10FL6CO3AL3B-GL2F" 20 PLAY B$ REM REM line numbering breaks here! REM ($fe)($FFFF)($FF0F)($fe)($FFFF)($FFFE)($FFFF)($FF0F) FOR ($FFFF)($FFFC)($FFFF)($FF0F) FOR ($FFFF)($FFFE)($FFFF)($FFEF) 61439 ($FFFF) REM REM line numbering breaks here! REM ($f8)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF) ( DSKINIT ($ed) BJIEKL BASD 230 REM REM line numbering breaks here! REM DEDHB BAS ($fc) 176 REM REM line numbering breaks here! REM DEJ BAS FREAD  138 REM REM line numbering breaks here! REM DKNTJ BAS PUT  153 REM REM line numbering breaks here! REM DGGT BAS RESTORE  EREU BAS l 160 REM REM line numbering breaks here! REM EBEFIB BAS H | FFOF BAS $ 176 REM REM line numbering breaks here! REM FHH BAS  INPUT GJ BASz ($eb) HKDAS BAS DIM  v JSJ BAS SET  252 REM REM line numbering breaks here! REM JESGHJ BAS COLOR  179 REM REM line numbering breaks here! REM KIK BAS OFF  136 REM REM line numbering breaks here! REM ODH BAS CREATE  170 REM REM line numbering breaks here! REM OJMDG BAS FLREAD  230 REM REM line numbering breaks here! REM GLEDE DAT($f8) 185 REM REM line numbering breaks here! REM HERLIGE DAT  141 REM REM line numbering breaks here! REM KLOKKER DAT k JULEKVELDAT. CLEAR JULEKVADDAT@ 206 REM REM line numbering breaks here! REM SMA DATR Y JUL DATd 206 REM REM line numbering breaks here! REM H0YT DATv l FJAERE DAT ON  151 REM REM line numbering breaks here! REM BETLEHEMDAT CSAVE  _ UTSPRUNGDAT PSET  a TRE DAT FN  239 REM REM line numbering breaks here! REM JULEFESTDAT  | JORDEN DAT & m BLA DAT ' POKE LA DAT ( 201 REM REM line numbering breaks here! REM JUKEBOX BAS m 214 REM REM line numbering breaks here! REM JUKEBOX BAK DRAW = INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00dd Exec: $8b8d * REM *(Start: 09217 Length: 00221 Exec: 35725) * REM ************************************************* REM 10 A$="O4L6V5CDCO3AB-L4AL10GL6GP10AO4CDO3B-AL3GL6FP10O4CDCO3AB-L4L4AL10GL6GP10O4CEDCO3BL3BL6AP10O4V9CL4FL8FL6CDO3B-O4L10CO3B-L6AO4CO3AO4CO3FB-L4AL10GFP20V15O4L6DL4CL10O3B-AP20O4V20L6FL4EL10DCV3P20L6DL3O3B-GF" 20 PLAY A$ REM REM line numbering breaks here! REM FROM FROM ($fe)($FFFF)($FF0F)($fe)($FFFF)($FFFE)($FFFF)($FF0F) FOR ($FFFF)($FFFC)($FFFF)($FF0F) FOR ($FFFF)($FFFE)($FFFF)($FFEF) 61439 ($FFFF) REM REM line numbering breaks here! REM ($f8)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF)($fe)($FFFB)($FFEF)($FFBF)($FFFF) ( DSKINIT ($ed) BJIEKL BASD 230 REM REM line numbering breaks here! REM DEDHB BAS ($fc) 176 REM REM line numbering breaks here! REM DEJ BAS FREAD  138 REM REM line numbering breaks here! REM DKNTJ BAS PUT  153 REM REM line numbering breaks here! REM DGGT BAS RESTORE  EREU BAS l 160 REM REM line numbering breaks here! REM EBEFIB BAS H | FFOF BAS $ 176 REM REM line numbering breaks here! REM FHH BAS  INPUT GJ BASz ($eb) HKDAS BAS DIM  v JSJ BAS SET  252 REM REM line numbering breaks here! REM JESGHJ BAS COLOR  179 REM REM line numbering breaks here! REM KIK BAS OFF  136 REM REM line numbering breaks here! REM ODH BAS CREATE  170 REM REM line numbering breaks here! REM OJMDG BAS FLREAD  230 REM REM line numbering breaks here! REM GLEDE DAT($f8) 185 REM REM line numbering breaks here! REM HERLIGE DAT  141 REM REM line numbering breaks here! REM KLOKKER DAT k JULEKVELDAT. CLEAR JULEKVADDAT@ 206 REM REM line numbering breaks here! REM SMA DATR Y JUL DATd 206 REM REM line numbering breaks here! REM H0YT DATv l FJAERE DAT ON  151 REM REM line numbering breaks here! REM BETLEHEMDAT CSAVE  _ UTSPRUNGDAT PSET  a TRE DAT FN  239 REM REM line numbering breaks here! REM JULEFESTDAT  | JORDEN DAT & m BLA DAT ' POKE LA DAT ( 201 REM REM line numbering breaks here! REM JUKEBOX BAS m 214 REM REM line numbering breaks here! REM JUKEBOX BAK DRAW = INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT INPUT REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00e2 Exec: $8b8d * REM *(Start: 09217 Length: 00226 Exec: 35725) * REM ************************************************* REM 10 J$="T1O3L9V7GL20AL10GL4EL9GL20AL10GL4EO4L6DL10DL6O3BL10BL6O4CL10CO3L4GL6AL10AL9O4CL20CO3BL10AL9GL20AL10GL4EL6AL10AO4L9CO3L20BL10AL9GL20AL10GL4EO4L9DL20DL10DL9FL20DO3L10BO4L4CL6EP10O4L9CO3L20GL10EL9GL20FL10DL3C" 20 PLAY J$ REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $006d Exec: $8b8d * REM *(Start: 09217 Length: 00109 Exec: 35725) * REM ************************************************* REM 10 K$="O3V7L10GAL6BBO4CCL4O3BL10AL6GGO4DDEEL4DL10CO3L6BL10BAL6GGO4CCO3AAO4DO3P20BO4CO3ABGL3EF#G" 20 PLAY K$ REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00f3 Exec: $8b8d * REM *(Start: 09217 Length: 00243 Exec: 35725) * REM ************************************************* REM 1 CLEAR 20000 10 L$="O3L6V5GL3GL6GL3BO4L6CL3DL6EL4DP6L6DO3L3GL6GL3BO4L6CL3DL6EL4DP6L6DL3DL6EL3DL6CO3L2BL4GP6L6GL3AL6AL3BL6AL3GL6AL4BP6L6BO4L3DL6EL3DL6CL2O3BL4GP6L6GL3AL6AL3BL6AL3GL6AL3BP6L3EL6EL3F#L6F#L2GL3O4DP6O3BL6BL3AL6AL1G" 20 PLAY "T3"+L$ REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00aa Exec: $8b8d * REM *(Start: 09217 Length: 00170 Exec: 35725) * REM ************************************************* REM 10 M$="O3L10V5FL6B-L10B-O4L9DL20CL10O3B-L6AL10B-O3L6O4CO3L10O3FO4L6CL10DL9E-L20DL10CL3DP10O3L10FL6B-L10B-L9O4DL20CO3L10B-L6AL10GO4L6E-L10CO3L6B-L10B-AGAL3B-" 20 PLAY M$ REM REM line numbering breaks here! REM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $007f Exec: $8b8d * REM *(Start: 09217 Length: 00127 Exec: 35725) * REM ************************************************* REM 10 N$="O3L6V5GGO4DO3BAGF#EDEF#GL2AL3GP6L6GGO4DO3BAGF#EDEF#GL2AL3GP6L6O4DDDL3EP6L6O3BO4CDDCO3BL3AP6L6DEF#GABL2AL3G" 20 PLAY N$ REM REM line numbering breaks here! REM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00a1 Exec: $8b8d * REM *(Start: 09217 Length: 00161 Exec: 35725) * REM ************************************************* REM 10 O$="V5O4L3CDL4CO3L10B-L6AB-O4L3CDL4CO3L10B-L6AB-L3O4CCDL6EFL3EDL2CP6L4O3GL10AL6GAL4B-O4L10CO3L3B-O3L4AL10B-L6AB-O4L4CL10DL3CL6FEDCFDCO3B-L3AGL2F" 20 PLAY O$ REM REM line numbering breaks here! REM FROM FROM REM REM ************************************************* REM * Dragon file header detected: * REM * Start: $2401 Length: $00dd Exec: $8b8d * REM *(Start: 09217 Length: 00221 Exec: 35725) * REM ************************************************* REM 10 P$="V5L10O3E-L6B-L10B-B-L6GL10E-E-O4L6CL10CCO3L6B-P10L10B-O4L6E-O3L10B-A-L6GL10B-GL3FL6E-P10":P1$="V5O4L10E-DL20DE-L10FDL6O3B-O4E-L10O4DE-FDL6O3B-O4E-DCO3B-A-GFE-P10L10GFGA-O4CO3L6B-L10A-DL3FL6E-" 20 PLAY P$+P$: PLAY P1$ REM REM line numbering breaks here! REM FROM FROM V5L10O3E-L6B-L10B-B-L6GL10E-E-O4L6CL10CCO3L6B-P10L10B-O4L6E-O3L10B-A-L6GL10B-GL3FL6E-P10V5O4L10E-DL20DE-L10FDL6O3B-O4E-L10O4DE-FDL6O3B-O4E-DCO3B-A-GFE-P10L10GFGA-O4CO3L6B-L10A-DL3FL6E- L6E-P10 V5O4L10E-DL20DE-L10FDL6O3B-O4E-L10O4DE-FDL6O3B-O4E-DCO3B-A-GFE-P10L10GFGA-O4CO3L6B-L10A-DL3FL6E- FROM FROM FROM V5O4L3CDL4CO3L10B-L6AB-O4L3CDL4CO3L10B-L6AB-L3O4CCDL6EFL3EDL2CP6L4O3GL10AL6GAL4B-O4L10CO3L3B-O3L4AL10B-L6AB-O4L4CL10DL3CL6FEDCFDCO3B-L3AGL2F FROM FROM FROM O3L6V5GGO4DO3BAGF#EDEF#GL2AL3GP6L6GGO4DO3BAGF#EDEF#GL2AL3GP6L6O4DDDL3EP6L6O3BO4CDDCO3BL3AP6L6DEF#GABL2AL3G FROM O3L10V5FL6B-L10B-O4L9DL20CL10O3B-L6AL10B-O3L6O4CO3L10O3FO4L6CL10DL9E-L20DL10CL3DP10O3L10FL6B-L10B-L9O4DL20CO3L10B-L6AL10GO4L6E-L10CO3L6B-L10B-AGAL3B- FROM FROM O3L6V5GL3GL6GL3BO4L6CL3DL6EL4DP6L6DO3L3GL6GL3BO4L6CL3DL6EL4DP6L6DL3DL6EL3DL6CO3L2BL4GP6L6GL3AL6AL3BL6AL3GL6AL4BP6L6BO4L3DL6EL3DL6CL2O3BL4GP6L6GL3AL6AL3BL6AL3GL6AL3BP6L3EL6EL3F#L6F#L2GL3O4DP6O3BL6BL3AL6AL1G FROM FROM O3V7L10GAL6BBO4CCL4O3BL10AL6GGO4DDEEL4DL10CO3L6BL10BAL6GGO4CCO3AAO4DO3P20BO4CO3ABGL3EF#G FROM FROM FROM T1O3L9V7GL20AL10GL4EL9GL20AL10GL4EO4L6DL10DL6O3BL10BL6O4CL10CO3L4GL6AL10AL9O4CL20CO3BL10AL9GL20AL10GL4EL6AL10AO4L9CO3L20BL10AL9GL20AL10GL4EO4L9DL20DL10DL9FL20DO3L10BO4L4CL6EP10O4L9CO3L20GL10EL9GL20FL10DL3C FROM FROM V7O4L6DC#O3BO4C#O3ABO4CL10DP10L6DL4DL10O3AL6AF#AGL10F#P10L6F#BBAO4C#DO3BL10AP10O4DL4CO3L10BO3L6ABL10GF#L6ED O4V7L6P6O3DAGL3F#EP6L6DAABO4C#L3DP6L6O3DAGL3F#EP6L6DAABO4C#L3DP6L6DO3ABL3GF#P6L6AO4DC#O3BBL3AP6L6BBAL3GF#P6O4L6DDC#O3BBO3L3AP6L6AAAL3BAP6L6ABBO4EC#L3D FROM O3V7L6GO4CO3GAGL4GL10FEP10L6EL4GL10FEP10L6O4EDO3BGO4CO3L4AL10BGP10L6GL4O4DL10CO3BP10L6O4CL3EDC FROM V5O4L3DL6DDEDL3DO3BL10P10O4L3CO3L6BAAGGF#L3GP10L6BAF#GEL3DP10O4L6DDDEDL3DO3BP10O4CL6O3BAAGGF#L3G GGF#L3G P10L6BAF#GEL3DP10O4L6DDDEDL3DO3BP10O4CL6O3BAAGGF#L3G FROM FROM FROM T2V10O3L10DL6BL10GL9O4CO3L20BL10AO4L9DL20EL10DO3L6BL10GO4L6EL10DL9DL20CL10O3BL6AL10EGF#DL6BL10GO4L9CL20O3BL10AO4L6DO3L10BL6AL10O4DL6EO3L10GF#AO4DDF#EEDO3DL6F#L10GBAG#L6AL10BO4DCO3AL6BL10BL9BO4L20CL10O3BL6BO4L10CEDCO3L4BAL2O4DO3L10GL4BAL2G FROM