Скачать или смотреть Basic Vir 5 "Apple Worm"

#retro #idealhunter #coding #malware #windows #old #retrogaming #virus #python #gaming #gaming #apple #appleii #iie #ii #test #trojan

Links:
https://en.wikipedia.org/wiki/Apple_Worm
   • Apple Worm  

Source code:

1 IF PEEK (104) = 134 GOTO 10
2 POKE 104,134: POKE 134 * 256,0
3 PRINT CHR$ (24),"RUN APPLE WORM"
10 HOME : POKE - 16302,0: POKE - 16304,0: POKE 1023,160
20 FOR I = 0 TO 94: READ D: POKE 1024 + I,D: NEXT I
30 POKE - 16368,0
40 IF PEEK ( - 16384) [ 128 GOTO 40
50 CALL 1024
100 DATA 160,225,200,185,255,3,153,127,4,192,95,208,245,160,18,190,76,4,24,189,128,4,105,128,157,128,4,189,129,4,105,0,157,129,4,192,13,208,18,238,23,4,173,23,4
200 DATA 141,151,4,206,31,4,173,31,4,141,159,4,136,208,211,173,167,4,72,173,176,4,141,167,4,104,141,176,4,76,128,4,7,20,25,28,33,46,55,61,65,68,72,75,4,16,40,43,49,52

there was a less than sign here. I replaced it with [ (str 40)