8-Bit Software Online Conversion
13 Amps - Listing
10REM" This one's for Jennifer
20REM" (Think about it...)
30:
40MODE7:VDU23;8202;0;0;0;
50*MUSIC
60PROCgra
70ENVELOPE1,1,0,0,0,0,0,0,121,-10,-5,
-2,120,120
80RESTORE
90a=1
100s=2
110READ A$,B$,C$,D$
120IF A$="" AND B$="" AND C$="" FOR Z=
0 TO 3000:NEXT:GOTO70
130FOR A=1TO 16
140IF ASC(MID$(A$,A,1))=32 SOUND1,0,0,
s:GOTO170
150IF MID$(A$,A,1)="'" SOUND1,a,5,s:GO
TO170
160SOUND1,a,ASC(MID$(A$,A,1)),s
170IF ASC(MID$(B$,A,1))=32 SOUND2,0,0,
s:GOTO200
180IF MID$(B$,A,1)="'" SOUND2,a,5,s:GO
TO200
190SOUND2,a,ASC(MID$(B$,A,1)),s
200IF ASC(MID$(C$,A,1))=32 SOUND3,0,0,
s:GOTO230
210IF MID$(C$,A,1)="'" SOUND3,a,5,s:GO
TO230
220SOUND3,a,ASC(MID$(C$,A,1)),s
230IF ASC(MID$(D$,A,1))=32 SOUND0,0,0,
s:GOTO270
240IF MID$(D$,A,1)="*" SOUND0,a,6,s
250IF MID$(D$,A,1)="." SOUND0,a,5,s
260IF MID$(D$,A,1)="@" SOUND0,a,4,s
270NEXT
280GOTO110
290DATA" ","
"," ","* @ * @
"," ","
"," ","* @ * @ * @ **@ "
," Q Q ! ! "," = = = = = = ","
! ! ! ! ! ! ! ! ","* @ * @ * @ **@ "
300DATA" Q Q e e "," = = = =
= = ","! ! ! ! ! ! ! ! ","* @ * @ * @ *
***","5 5 5 5 5 5 5 5 ","5 5 5 5! ! ! !
","5 5 5 51 1 1 1 "," "
,"5 5 5 5 = = = = ","% % % %%- - - --","
5 5 5 55I I I II"
310DATA" ","5 5 5 5 5 5
5 5 ","5 5 5 5! ! ! ! ","5 5 5 51 1 1
1 "," ","5 5 5 5 = = = =
","% % % %%- - - - ","5 5 5 55I I I II"
," ","5 5 5 5 5 5 5 5 ","
5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 "
320DATA"* * ","5 5 5 5 = =
= = ","% % % %%- - - --","5 5 5 55I I I
II","* * @@@@","5 5 5 5 5 5 5 5
","5 5 5 5! ! ! ! ","5 5 5 51 1 1 1 "
,"* * ","5 5 5 5 = = = = ","
% % % %%- - - --","5 5 5 55I I I II"
330DATA"* * * * * * @@@@","A A A A = =
= = ","' ' ' ' ' ' ' ' ","5 5 5 5 ! ! !
! ","* @ * @ ","5 5 5 5 = = = =
","' ' ' ' ' ' ' ' ","% % % % - - - - "
,"* @ * @ ","A A A A = = = = ","
' ' ' ' ' ' ' ' ","5 5 5 5 ! ! ! ! "
340DATA"* @ * @ ","5 5 5 5 = =
= = ","' ' ' ' ' ' ' ' ","% % % % - - -
- ","* @ * @ "," e mq m e
","A A A A = = = = ","5 5 5 5 ! ! ! ! "
,"* @ * @ "," y qe q e q m ","
5 5 5 5 = = = = ","% % % % - - - - "
350DATA"* @ * @ "," e mq m e
","A A A A = = = = ","5 5 5 5 ! ! !
! ","* @ * @ "," yqeqeqm
","5 5 5 5 = = = = ","% % % % - - - - "
,"* @ * @ "," e mq m e ","
A A A A = = = = ","5 5 5 5 ! ! ! ! "
360DATA"* @ * @ "," y qe q e
q m ","5 5 5 5 = = = = ","% % % % - - -
- ","* @ * @ "," e mq m e
","A A A A = = = = ","5 5 5 5 ! ! ! ! "
,"* @ * @ "," yqeqeqm
370DATA"* @ * @@@@","11111111111
11111","A A A A = = = = ","5 5 5 5 ! ! !
! ","* @ * @ ","11111111)))))))
)","% % % % ! ! ! ! ","5 5 5 5 = = = = "
,"* @ * @ ","!!!!!!!!!!!!!!!!","
A A A A = = = = ","5 5 5 5 ! ! ! ! "
380DATA"* @ * @ ","
= ","* @ * @@@@","
A A A A
,"* @ * @ ","
% % % % ! ! ! ! ","5 5 5 5 = = = = "
390DATA"* @ * @@@@","
! ","* @ * @ ","
,"* @ * @@@@"," ","
"," "
400DATA"* @ * @@@@","
"," ","
","* @ * @@@@","
"," "," "
,"* @ * @@@@"," ","
"," "
410DATA"* @ * @@@@","' ' ' ' ' '
' ' "," ","
","* @ * @@@@","' ' ' ' ' ' ' '
"," "," "
,"* @ * @@@@","' ' ' ' ' ' ' ' ","
"
420DATA"* @ * @@@@","' ' ' ' ' '
' ' ","
","* @ * @@@@","' ' ' ' ' ' ' '
"," "
,"* @ * @ ","' ' ' ' ' ' ' ' ","
"
430DATA"* @ @@@@....","5AQe5AQe!1=
Q!1=Q","A A A A = = = = ","5 5 5 5 ! ! !
! ","* @ * @ ","%5AU%5AU-=I]-=I
]","5 5 5 5 = = = = ","% % % % - - - - "
,"* @ * @ ","5AQe5AQe!1=Q!1=Q","
A A A A = = = = ","5 5 5 5 ! ! ! ! "
440DATA"* @ * @ ","%5AU%5AU-=I
]-=I]","5 5 5 5 = = = = ","% % % % - - -
- ","* @ * @ ","! ! ! ! ! ! ! !
","! ! ! ! ! ! ! ! ","! ! ! ! ! ! ! ! "
,"****@@@@....@@@@","! ! ! ! ! ! ! ! ","
! ! ! ! ! ! ! ! ","! ! ! ! ! ! ! ! "
450DATA"****@@@@....@@@@","'''''''''''
'''''","''''''''''''''''","'''''''''''''
'''","* * ","'
","' ","' "
,"* ","","","",""
460DEFPROCgra
470X$=CHR$255
480PRINT
490PRINT"
500PRINT" XXXXXXXXXXXXX
"
510PRINT" X XX X X
" X XXX XX
;
520PRINT" XX X X X
XX XXX X X
X$"1"
530PRINT" X X X X
`?!"X$" "X$" "X$" "X$" "X$" z5""+"X$X$
"4"
540PRINT" X X X
X$X$X$" "X$" "X$" "X$" "X$X$X$"? k"X$
550PRINT" X XX X X
" X X X X X
560PRINT" XXXXXXXXXXXXX
" X X X X X
"
570PRINT"
By Joel";
580PRINT"
,,,,,,,,,,,";
590PRINT" Original theme by Meg
a"
600PRINT" Digitised and Harmonised
by Joel"
610PRINT'CHR$141;" Phone the RABBIT RU
N - 0924 264170 RB"
620PRINTCHR$141;" Phone the RABBIT RUN
- 0924 264170 RB"
630ENDPROC