Skip to content

Instantly share code, notes, and snippets.

Embed
What would you like to do?
AppleSoft BASIC program used in Airwolf S02E03 "Moffett's Ghost"
1 PP=2
10 HOME
12 PRINT
20 A$ = "0123456789ABCDEF"
30 FOR I = 1 TO 19
31 IF I = 9 THEN GOSUB 1000
40 L$ = ""
45 FOR J = 1 TO 9
50 L1 = INT ( RND (1) * 15 ) + 1: L2 = INT ( RND (1) * 15 ) + 1
60 L$ = L$ + MID$ (A$,L1,1) + MID$(A$,L2,1) + ": "
65 IF I = 16 THEN GOSUB 1000
70 NEXT J
80 PRINT L$: NEXT I
83 HOME
94 HTAB 12: VTAB 10
95 INPUT "ENTER PASSWORD: ";W$
98 INPUT "";W$
99 HOME
100 PRINT " MEMORY DUMP PAGE: "
105 PRINT
110 GOTO 30
1000 FOR Z = 1 TO 200: NEXT Z: RETURN
@carrasquillo54
Copy link

carrasquillo54 commented Oct 10, 2017

good thing.

@SIRprise
Copy link

SIRprise commented Apr 22, 2021

Thanks for sharing! I wondered how you could get the complete source...

Here is an emulator/interpreter seems to work: https://www.calormen.com/jsbasic/

Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment