Add expanded BASIC source
[?]
Aug 18, 2018, 1:35 AM
QHYY7QXXQHOLBHW5SR6TAF2FGVXHMTUBLBGXQTNUTZRKOGOKIFUACDependencies
- [2]
BNQRFDSXStart program for day 5. - [3]
EQCYURZBMaybe finished day 5 program (Apple ][ emulator is running it slowly) - [*]
XBZHQ672Day 1 solution
Change contents
- file addition: day5.bas[5.7]
5 CLEAR10 DIM JP(4096)20 PRINT CHR$ (4);"OPEN DAY5TEXT"30 PRINT CHR$ (4);"READ DAY5TEXT"40 ONERR GOTO 41650 INPUT RN51 JP(MX) = RN52 MX = MX + 153 GOTO 5060 PC = 061 ST = 070 IF PC < 0 OR PC > = MX THEN GOTO 20071 DS = JP(PC)72 JP(PC) = DS + 173 PC = PC + DS74 ST = ST + 175 GOTO 70200 PRINT ST;" STEPS TAKEN"201 END404 END416 PRINT CHR$ (4);"CLOSE DAY5TEXT"417 ONERR GOTO 421418 OK = 0419 CALL 62248420 IF PEEK (222) = 5 THEN GOTO 60421 PRINT "ERROR: "; PEEK (222) - replacement in 2017/day5.md at line 4
in the Applesoft BASIC compact format.included here in Applesoft packed format (day5) and expanded ASCII format(day5.bas)