Unknown Machine Code Routine 4
1 REM \2A\0C\40\23\E5\11\21\00\19\D1\01\B5\02\ED\B0\EB\06\20\36\00\23\10\FB\C9\2A\10\40\11\43\00\ED\52\E5\11\21\00\ED\52\D1\01\B5\02\ED\B8\EB\06\20\2B\36\00\10\FB\C9\2A\0C\40\06\16\C5\06\20\3E\00\23\4F\7E\71\10\FA\23\C1\10\F1\C9\2A\10\40\11\43\00\ED\52\06\16\C5\06\20\3E\00\2B\4F\7E\71\10\FA\2B\C1\10\F1\C9\1D\1E\1F\20\21\22\23\24\25\1C
5 LIST 35
20 LET D$=INKEY$
25 IF D$="J" THEN RAND USR 16588
30 IF D$="M" THEN RAND USR 16538
35 IF D$="I" THEN RAND USR 16514
40 IF D$="K" THEN RAND USR 16567
41 IF D$="U" THEN GOTO 43
42 GOTO 45
43 RAND USR 16514
44 RAND USR 16588
45 IF D$="O" THEN GOTO 47
46 GOTO 49
47 RAND USR 16514
48 RAND USR 16567
49 IF D$="." THEN GOTO 51
50 GOTO 53
51 RAND USR 16538
52 RAND USR 16567
53 IF D$="N" THEN GOTO 55
54 GOTO 57
55 RAND USR 16538
56 RAND USR 16588
60 GOTO 20
70 SAVE "1009%7"
80 GOTO 5
People
No people associated with this content.